home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 16 / Mac Magazin and MacEasy Magazine CD - Issue 16.iso / Datenbanken & Hypercard / FileMaker Workshop 2 / Filemaker Formel Zahl = Wort next >
Text File  |  1995-11-13  |  2KB  |  26 lines
  1. Die Mammutformel zur Umsetzung der Anzeigezahl in ihre sprachliche Entsprechung lautet: 
  2.  
  3. Anzeige in Worten=
  4.  
  5. IF(Num[Anzeige]>999999;"Sorry, klappt nur bis 999999!";
  6. PROPER(
  7. If(Num[Anzeige]≥1000;
  8. If(Num[Anzeige]≥100000 AND Left(Right(NumToText(Int(Num[Anzeige]));6);1) ≠ "0"; 
  9. Trim(Middle("      Ein   Zwei  Drei  Vier  Fünf  sechs siebenacht  neun  "; 6*Left(Right(NumToText(Int(Num[Anzeige]));6);1)+1;6)) &"hundert"; "")&
  10.  
  11. If(Left(Right(NumToText(Int(Num[Anzeige]));5);1)<2;
  12. Trim(Middle("        Ein     Zwei    Drei    Vier    Fünf    sechs   sieben  acht    neun    Zehn    Elf     Zwölf   DreizehnVierzehnFünfzehnSechzehnSiebzehnAchtzehnNeunzehn"; 
  13. 8*Left(Right("  "&NumToText(Int(Num[Anzeige]));5);2)+1;8));
  14.  
  15. Trim(Middle("      Ein   Zwei  Drei  Vier  Fünf  sechs siebenacht  neun  "; 6*Left(Right(NumToText(Int(Num[Anzeige]));4);1)+1;6))&
  16. If(Num[Anzeige]≥10000;If(Left(Right(NumToText(Int(Num[Anzeige]));4);1) ≠ "0"; "und";"")& Trim(Middle("     ZwanzDreißVierzFünfzSechzSiebzAchtzNeunz"; 5*Left(Right(NumToText(Int(Num[Anzeige]));5);1)-4;5))&"ig";"")
  17. ) &"tausend";"")&
  18.  
  19. If(Num[Anzeige]≥100 AND Left(Right(NumToText(Int(Num[Anzeige]));3);1) ≠ "0"; 
  20. Trim(Middle("      Ein   Zwei  Drei  Vier  Fünf  sechs siebenacht  neun  "; 6*Left(Right(NumToText(Int(Num[Anzeige]));3);1)+1;6)) &"hundert"; "")&
  21.  
  22. If(Left(Right(NumToText(Int(Num[Anzeige]));2);1)<2;
  23. Middle("        Eins    Zwei    Drei    Vier    Fünf    sechs   sieben  acht    neun    Zehn    Elf     Zwölf   DreizehnVierzehnFünfzehnSechzehnSiebzehnAchtzehnNeunzehn"; 8*Left(Right(NumToText(Int(Num[Anzeige]));2);2)+1;8);
  24.  
  25. Trim(Middle("      Ein   Zwei  Drei  Vier  Fünf  sechs siebenacht  neun  "; 6*Left(Right(NumToText(Int(Num[Anzeige]));1);1)+1;6))&
  26. If(Num[Anzeige]≥10;"und"& Trim(Middle("     ZwanzDreißVierzFünfzSechzSiebzAchtzNeunz"; 5*Left(Right(NumToText(Int(Num[Anzeige]));2);1)-4;5))&"ig";""))))